68.4-59.53

68.8-58.85

69.4-58.15

70.3-57.6

70.7-56.95

71.4-56.2

72-55.6

72.6-55.15

73.2-54.2

73.8-53.9

74.35-52.8

75.1-52.2

75.8-51.4

76.3-50.9

76.9-50.2

77.6-49.5

78.2-48.85

78.7-48.3

Clear[A,B];
LE=.8;(*lego enota*)
ΔXji=(1/LE){8.87,9.95,11.25,12.7,13.75,15.2,16.4,17.45,19.,19.9,21.55,22.9,24.4,25.4,26.7,28.1,29.35,30.4};


{A,B}={A,B}/.FindFit[ΔXji,A y+B,{A,B},y]
((2ArcTan[A/2])/°)
graf=Show[
ListPlot@ΔXji,
Plot[A y+B,{y,0,Length@ΔXji}],
ImageSize->{1000}
]

Export["c:\\Users\\gal\\Documents\\DRUGI PROGRAMI\\Wolfram Mathematica\\saška ura\\graf za določenje razdalje.png",graf];